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; 1 THIS MODULE CONTAINS SYNCHRONIZATION ROUTINES FOR TTDRVR 
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COPYRIGHT ite 1978, 1980, 1982, 1984 B 
ae hatee TPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN oe ie WITH THE TERMS OF SUCH bi CeNse AND WITH THE 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT Ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; Description: 


; THIS MODULE PROVIDES THE SET OF ROUTINES NECESSARY TO IMPLIMENT 
; A SYNCHRONIZATION TECHNEQUE BASED ON IPL FOR THE VMS TERMINAL DRIVER 


Edit History 


V04-001 M1IR1100 Michael I. Rosenblum 7-Sep-1984 
below fPLs-stucn RO would be set to 1 if the ipl was already 
Fix bug that we let the ACB allocation routine run off 
The - of the pool. Allocate more pool. 


V03-001 M1RO320 Michael I. Rosenblum 17-Feb-1984 
Fix bug in the loading of R2 by ttylock we must make sure 
That we are in physical context. 
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TTYSYNCH = THIS MODULE CONTAINS SYNCHRONIZATION R 16-SEP-1984 02:23:1 AX/VMS Macro V04-00 Pa 
v04-001 5 SEE 138 §¢:39:3 TTDRVR.SRCITTYSYNCH.MAR; 2 - dy 
3 SFKBDEF 
4 SACBDEF 
5 SUCBDEF 
§ STTYDEFS 
STTYDEF 
8 stipe 
0 9 STT2DEF 
BS S$ SIPLDEF 
0000 88 66 -PSECT $$$115_DRIVER,LONG 
099 $e a -sbttl TTYSSYNCH = common routine that provides necessary synchronization 
Boop $6 : EXESFORK = replaces the functionality of EXESFORK 
B88 oe : Description: 
0000 0; This routine is the basis of synchronization for the terminal class 
0000 71 ; driver. For normal controlers this is implimented by a normal fork call 
44 ie ; for controlers that whish to run in process context specail kernal AST's 
4 fF ; may be used, in user mode the lock manager may be used. 
0000 «75: 
0000 76 ; INPUTS: 
0000 77; 
0000 78 ; QO(SP) = RETURN ADDRESS OF CALLER. 
0000 79 ; 04(SP) = PROCESS PID TO USE FOR THIS FORK 
4464 + ; O8(SP) = RETURN ADDRESS OF CALLER'S CALLER. 
0000 Be ; RS = ADDRESS OF FORK BLOCK. 
0000 83 ; 
0000 84 ; OUTPUTS: 
0000 85 ; 
44 6 : eerTBStee 
000 7 ;- 
9000 88 TTYSSYNCH: : :CREATE FORK PROCESS 
02 OB AS 91 0000 90 CMPB FKBSB_FIPL(RS) ,#2 ; ARE WE FORKING TO IPL2? 
09 13 0004 91 BEQL DEL_SPKNL ; YES THEN DELIVER THINGS DIFFERENTLY 
6€ 8E 00 0006 38 MOVL (SPT+, (SP) ; NORMAL FORK THEN REMOVE PID FROM STACK 
00000000'GF 1 o00F 93 as le g*EXE $F ORK : THEN FORK 
10 a5 53._ (7D 6 OF 95 #~ MOVQ  R3,FKBSL_FR3(R5) : SAVE FORK R3 AND R4 
0c 83 SED 3 39 POPL FKBSL_FPC(R5) ; GET A FORK PC 
5 ED 1 9 POPL Ra : ¢ 
o 1 1A 98 BNEQ 5$ ; IS THERE A PID 
53 00010001 8F D 33 189 5s MOVL #*X10001,R3 ; NO THEN USE THE SWAPPER 
00000840 EF 90000820 EF DE 101 MOVAL TTYSFORK_POOL_END-TTYSK_FXT_LENGTH, TTYSFORK_POOL_END 
54 0 1ED'EF 4 3 1 § MOVAB TTYSFORK POOL, R4 : GET THE ADDRESS OF THE FORK POOL 
14 E 103 10$: BBCS #0,(R4), ; SET THE BUSY BIT AND EXIT WITH THIS ADDRE 
54 00000020 ° 8F 00000840 ' EF neha 72 104 ACBL TTYSFORK_POOL_END ,ATTYSK_FXT_LENGTH,R4,10$; MOVE TO THE NEXT BLOCK 
FFFFFFFF ‘FF gE 43 105 TSTL a-1 
4D 1 $ 20$ 
54 9% co 40 1 ADDL #4,R 3; MOVE PAST THE LOCAL STATUS WORD 
14 AG 5 00 50 108 MOVL R5,ACBSL_ASTPRM(R4) ; KEEP THE REAL FORK BLOCK FOR LATER USE 


TTYSYNCH = THIS MODULE CONTAINS YNCHRONIZATI NR 16- AX/VMS Macro V04-00 Page 3 
v04-001 TTYSSYNCH = common A 4 that zhr lw a -$ Pa} 984 NE $3; 8 LTTORVR. SREITTYSY YSYNCH.MAR; 2 . (1) 
5 oD 4 109 PUSHL RS ; SAVE THIS FOR LATER 
5 D : 1 MOVL R4,R5 ; : MAKE RST THE ACB 
CA p 111 MOVL  R3,ACBSL_PID(RS) PUT IN THE PID 
A D 118 MOVE #ACBSM PRAST/ACBSM_ noveviTe, ACBSB_ RMOD (RS) MAKE THIS A SPECAIL KERN 
10 aS QOOOOCD'EF  9E : MOVAB L1,ACBSL_AST(R5) GET THE-AST A 
18 A 00 o0DB "EF 3 9 11 MOVAB FREE _ACB;ACBSL_KAST (RS) ;” ACPIGGY BA BACK Be To p ASSIGN THE AASTBLK 
0000 cS EF BP 73 116 PUSHAB RESTRS i R RESTORE cS Ae Arter "QUEUEING THE FORK 
54 0009 "SF DB 07 11 MFPR #PRS$_IPL,R4 ; GET THE C T IPL 
5 OD 80 118 MOVL R5,R3 + SAVE THE ari ADDRESS 
08 54 »1 00 11 CMPL RG #IPL$_SYNCH : ARE WE AT SYNC OR BELOW? 
4 15 0 0 ; BLEG ©-«6 0 
3 : gi ; we need a fork block to get to IPL queveast before we can queue an ast 
54 000001 ED "EF %§ 88 154° MOVAB TTYSFORK_POOL,R4 : GET THE ADDRESS OF THE FORK POOL 
1464 00 €3 OOBF 125 40$:  BBCS ¥#0,(R4),50$ : SET THE BUSY BIT AND EXIT WITH THIS ADDRE 
54  00000020'8F 00000B4D'EF rte 093 126 ACBL =‘ TTYSFORK_POOL_END,#TTYSK_FXT_LENGTH,R4,40$; MOVE TO THE NEXT BLOCK 
FEFFFEFF FE BE OA1 127 TSTL ant 
54 04 (CO OOA7 128 50S ADDL MOVE BEAOND THE STATUS LONGWORD 
0B AS «6006 «= 90 «(O0AA—s129 MOVB ais _QUEUEAST, FKBSB_ FIPLCRG) 
55 56 00 OOAE 0 MOVL  R4,R SETUP THIS ADDRESS TO FORK ON 
00000000'GF 16 a8 ¢ JSB g*EXESFORK : CALL OURSELFS WITH A NON-IPL 2 IPL 
ed ! 23 : When the fork returns then queue the ast 
00 FC AS 99 ES 9087 6 - BBCC #9.-4(R5) ,608 : FREE THE FORK BLOCK 
38 D4 00BF 138 ; cURL R ’ ; NO PRIORITY BOOST NECESSARY 
00000000'GF 16 00C3 140 JSB G*SCHSQAST : QUEUE ST 
50 BEDO 00¢9 141 POPL RO 
oe eee 
90¢D 146 > RETURN HERE AFTER THE AST IS FIRED 
003¢ 00CD 146 (1: .WORD “M<R2,R3,R4,R5> : SAVE SOME REGISTERS 
55 04 aC DO OOCE 14 MOVL  4(AP).R5 : RESTORE THE REAL FORK BLOCK ADDRESS 
53 10 a5 7D o03 183 30$:  MOVQ FKBSL_FR3(R5),R3 2 THE FORK BLOCK AND REGISTERS THEN 
0c B5 (16 907 131 JSB @FKBSL_FPC(RS) : GOTO THE ROUTINE 
04 DA 13¢ RET + RETURN TO THE SYSTEM 
abe 134 : CALLED AS A PIGGYBACK AST TO THE NORMAL AST 
DB 13 FREE 
00 FC AS) 6©00)—CiséES'-s«OO0DBSCéd : #0,-4(R5) ,30$ ; NOW CLEAR THE BUSY BIT 
55  00000B6D'EF DE oep 138 308: MOVAL TTYSNODELACB,RS : MAKE SURE WE DO NOT DELETE THIS ACB 
0 : 139 RSB + NOW RETURN 
: 161 ? RESTORE USED REGISTERS BEFORE RETURNING TO THE HIGHER LEVEL 
E 188 RESTRS: : RESTORE RS AFTER CALLING FORK 
52 BEDO O0E8 164 POPL R2 > RESTORE R2 


onmon rout rncurontzAt "$$p-1986 07:80:27 EMbavA.SReatrvStwcH.mar:2 "29° 


65 POPL R5 
66 RSB 
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v04=007 TTYSLOCK = SETUP IPL AND REGISTERS =SEP-1984 01:20:27 (CTTDRVR.SRCITTYSYNCH.MAR; 2 (2) V 
EF 183 .SBTTL TTYSLOCK = SETUP IPL AND REGISTERS 
EF 1 3 ++ 
eF 17) : TTYSLOCK = SETUP IPL AND REGISTER CO-ROUTINE 
Er 178 : FUNCTIONAL DESCRIPTION: 
OEF 175 ; THIS IS A CO=ROUTINE THAT DISABLES INTERRUPTS TO THE IPL IN UCBSB_DIPL 
EF 1% ; AND SETS UP A POINTER TO THE UNIT STATE VECTOR. 
ot 178 $ SUBSEQUENT RETURN CAUSES IPL TO BE RETURNED. 
OeF 180 : INPUTS: 
OOEF 183 : RS = UCB ADDRESS 
oer 184 : OUTPUTS: 
OOEr 18¢ : R1 IS DESTROYED. 
OOEF 183 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
OOEF 189: R5 = UCB ADDRESS 
Br ge Fo 
OOEF 198 TTYSLOCK:: : SETUP IPL AND REGISTERS 
51 6€ DO OOEF 19 MOVL  (SP),R1 : GET RETURN ADDRESS 
6E  00000000°8F DB OOFe 194 MFPR = #PRS’ IPL, (SP) : GET THE CURRENT IPL 
6E SEAS 91 OOFS 195 CMPB =—s UCB$B_DIPL(R5), (SP) : If already at device IPL or 
18 OOFD 196 us: 108 :; higher, branch forward. 
OOFF 197 SETIPL UCBSB_DIPL(RS) ;_ Else, raise to device IPL. 
02 SEAS 91 O08 198 10$: CMPB CBS$B_DIPL(R5) .MIPLS$_ASTDEL; ARE WE AT ASTDEL OR GOING THERE? 
1 13 0107 +199 BEQL ; YES THEN HANDLE SPECAILLY 
53 00A0 C5) «0 s«(0109 «3S 200 30S: MOvL $L_TL_PHYUCB(RS),R2 ; MAKE SURE WE ARE IN PHYSICAL CONTEXT 
52 (00B8 Ce %E ats 1 ROVAB UCBSO_TT_STATE (R2) .R2 : SETUP STATE VECTOR POINTER 
02 SEAS 91 O11 88 CMPB UCBSB_DIPL(RS) ,#IPL$_ASTDEL; ARE WE AT ASTDEL OR GOING THERE? 
03 13 0119 204 BEQL © 40$ ; YES THEN HANDLE SPECAILLY 
118 205 ENBINT : ENABLE INTERRUPTS 
0S O11E 06 40$:  RSB ; 
He 88 20S: 
00000840 ' ' 1F "  MOVAL ~—soTTYSFORK_POOL_END-TTYSK_FXT_LENGTH, TTYSFORK_POOL_END 
per fe a 55 i i A 1 CRPLS #IPLS_ASTDEL, TSP) + “; ARE WE ALREADY AT ASTDEL? 
1 12 01200 211 BNEQ 60% : NO THEN WE MUST FORK 
1 pp 10F 1 PUSHL 1 : KEEP THE RETURN LOCATION 
51 2¢ Ad 3¢ 1 13 NOV ZUL YCBSL_PID(RS) .R1 : GET THE PID INDEX 
7E _00000000'GF 0 i 16 50$ HOVE oats l_peb (om ee yay ty” the pcb 
. “sc pcbvec,-(s ; ge e lo 
' 1 MP S+CRIT G*SCHSGL CuRPcé - ARE WE CURRENTLY ACTIVE 
aesnenangenBi ber if 149 18 BNEG 76 ‘3 ; YES THEN NO FORK NECESSARY 
1 Be DO 148 1 POPL i. : RESTORE R1 
comneerss A HS HA: EM Fletcer rams f RIS REASEDRY SPRL oe soe 
" et 5 4 i § 200$: wgaAcs bO CRI 2508 : : SET THE BUSY Bi AND EXIT WITH THIS ADDRE 
51 00000020'8F 00000B4D'EF F1 015D 4 ACBL =—«- TTYSFORK_POOL_END. #TTYSK_FXT_LENGTH,R1,200$; MOVE TO THE NEXT BLOCK 
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v04-001 TTYSLOCK = SETUP IPL AND REGISTERS ety 94:33:38 TTDRVR.SRCITTYSYNCH.MAR:2 © (3) 
FFEE 0169 
FFFFFFFF'FE 6005 01 5 TSTL = a= 
5104 ¢ 1 : 250$: ADDL #4,R1 : MOVE BEAOND THE STATUS LONGWORD 
10 A 3 7D 0174 MOVG R3.FKBSL_FR3(R1) : SAVE R3 AND R4& 
s j D6 178 : MOVL R1.R3 : KEEP THE FORK BLOC 
4 8ED0 0178 POPL 4 : AND THE RETURN ADDRESS 
OQO01EO'EE OF 4 0 PUSHAB REST_REGS ; RESTOR THE NECESSARY REGISTERS 
a: ae AS i 4 1 OV BSC_PID(R5S) ,-(SP) ; PUT THE PID ON THE STACK 
6E 00010001 gy D A 5 al MOVL § #*X10001, (SP) : THEN USE SWAPPER 
51 OOOOTED' EF 2 191 5 MOVAB TIYSEORK POOL Rt : GET THE ADDRESS OF THE FORK POOL 
4 61 E3 0198 : 90$: BBCS #0,(R1),T0 : SET THE BUSY BIT AND EXIT WITH THIS ADDRE 
51 00000020'8F  00000B4D'EF rte 19¢ ACBL =‘ TTYSFORK_POOL_END,ATTYSK_FXT_LENGTH,R1,90$; MOVE TO THE NEXT BLOCK 
FEFFFFFF FF f§ 1AA 38 TSTL a= 
5104 C6 180 100$: ADDL #4,R1 : MOVE BEAOND THE STATUS LONGWORD 
18 Al §5 00 018 40 MOVL  R5.ACBSL_KAST(R1) + PLACE RS IN AN UNUSED LOCATION 
0B Al 0B AS 90 0187 241 MOVE UCBSB_FIPL(RS) , FkBSB_FIPL (RI) j SETUP THE FORK IPL 
55 31 20 1BC 4g MOVL R1,R ; MAKE THIS THE FORK BLOCK 
FE : 1BF 24 BSBW  =« TTYSSYNCH : AND SYNCHRONIZE 
51 55 00 1c 44 MOVL  R5,R1 : GET THE FORK BLOCK ADDRESS 
55 18 Al 00 gic 45 MOVL  ACBSL_KAST(R1),R5 : GET THE UCB ADDRES 
00 FC Al 99 £4 01¢9 46 BBSC #0,-4TR1),130$ + NOW CLEAR THE BUSY 
52 DO O1CE 47 130$: MOVL R3.R2 : GET THE AUXILLARY BLOCK 
5154 D0 01D 48 MOVL  R4.R1 t AND THE RETURN ADDRESS 
53° (10 a2 D 01D4 249 MOVO  FKBSL_FR3(R2),R3 : RESTOR AND R4 
00 FC a2. OO Es 01D8 250 BBSC #0,-4TR2),140$ : FREE THE AUXILLIARY BLOCK 
FF29. 31 O1DD 251 1408: BRW 30$ 
01E0 3 REST_REGS: 
53 10 AS 7D O160 25 MOVQ = FKBSL_FR3(R5) ,R3 ; RESTORE THE REGISTERS 
55 18 AS DO O1E4 254 MOVL ACBSLKAST(RDS .RS : GET RS 
53 10 a3) 7D «OO1EB) Ss 255 MOVO FKBSL-FR3(R3) ,R3 : RESTORE THE REGISTERS 
05 O16C 256 RSB : AND RETURN 
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The working set Limit was 1350 pages. 
64181 bytes_(126 pages) of virtual memory were used to buffer fhe intermediate ggée. 
There were 70 pages of symbol table space allocated to hold 1203 non-local and local symbols. 
0 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
7 pages of virtual memory were used to define 26 macros. 


Macro Library name Macros defined 
~$522S0UAgE: SYS.OBJJLIB.MLB; 1 17 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 3 
TOTALS (all Libraries) 2 


1336 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:TTYSYNCH/OBJ=OBJ$:TTYSYNCH MSRC$: TTYSYNCH/UPDATE=(ENHS$: TTYSYNCH) +EXECMLS$/LIB 
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